home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_asm / oopasm / filewin.asm < prev    next >
Encoding:
Assembly Source File  |  1990-07-15  |  1.2 KB  |  76 lines
  1.     .MODEL    SMALL
  2.  
  3.     INCLUDE    equates.inc
  4.     INCLUDE    instance.inc
  5.     INCLUDE    messages.inc
  6.     INCLUDE    objects.inc
  7.  
  8.     UR    EQU    3            ;Upper row
  9.     LC    EQU    1            ;Left column
  10.     LR    EQU    23            ;Lower row
  11.     RC    EQU    79            ;Right column
  12.  
  13. IF1
  14.     INCLUDE    macros.mac
  15.     INCLUDE    objects.mac
  16.     INCLUDE    video.mac
  17. ENDIF
  18.  
  19.     EXTRN    sendMsg:NEAR
  20.  
  21.     EXTRN    Dispatch:WORD
  22.     EXTRN    Hardware:WORD
  23.     EXTRN    SBorder:WORD
  24.     EXTRN    Self:WORD
  25.     EXTRN    System:WORD
  26.     EXTRN    Window:WORD
  27.  
  28.  
  29.     .CODE
  30.  
  31. IF Dbug
  32.     PUBLIC    disFileWin
  33. ENDIF
  34. COMMENT    %
  35. ==============================================================================
  36. Displays a file's text in FileWin window.
  37.  
  38. =============================================================================%
  39. disFileWin    PROC    NEAR
  40.     ret
  41. disFileWin    ENDP
  42.  
  43.  
  44.  
  45.     .DATA
  46.  
  47.  
  48. defDispTbl    FileWin,\
  49.     <0,0,3,0,0,0,0,System,Reset>,\
  50.     <Nil,Nil,1,UR,LC,LR,RC,FileWin,Clear>,\
  51.     <0,68,3,0,0,0,0,FileWin,Clear,System,Refresh,System,Read>,\
  52.     <0,Nil,Nil,0,0,24,79,Hardware,Refresh>
  53.  
  54. defMsg    FileWin,\
  55.     Refresh,\
  56.     <,,disFileWin>
  57.  
  58. defObj    FileWin,\
  59.     <Dispatch,Window,SBorder>,\
  60.     <Row1,1,UR,\
  61.     Col1,1,LC,\
  62.     Row2,1,LR,\
  63.     Col2,1,RC,\
  64.     Color,1,34h,\
  65.     Unused,1,Nil,\
  66.     TxtPtr,2,Nil,\
  67.     InxPtr,2,Nil,\
  68.     MasterObj,2,Nil,\
  69.     DispTbl,2,FileWinDispTbl>,\
  70.     <Refresh,Read,Clear>
  71.  
  72.  
  73.  
  74.  
  75.     END
  76.